function Homepage(){ //For testing use DocURL = "res://shdocvw.dll/http_404.htm#https://www.microsoft.com/bar.htm" DocURL = document.location.href; //this is where the http or https will be, as found by searching for :// but skipping the res:// protocolIndex=DocURL.indexOf("://",4); //this finds the ending slash for the domain server serverIndex=DocURL.indexOf("/",protocolIndex + 3); //for the href, we need a valid URL to the domain. We search for the # symbol to find the begining //of the true URL, and add 1 to skip it - this is the BeginURL value. We use serverIndex as the end marker. //urlresult=DocURL.substring(protocolIndex - 4,serverIndex); BeginURL=DocURL.indexOf("#",1) + 1; if (protocolIndex - BeginURL > 7) urlresult="" urlresult=DocURL.substring(BeginURL,serverIndex); //for display, we need to skip after http://, and go to the next slash displayresult=DocURL.substring(protocolIndex + 3 ,serverIndex); // Security precaution: must filter out "urlResult" and "displayresult" forbiddenChars = new RegExp("[<>\'\"]", "g"); // Global search/replace urlresult = urlresult.replace(forbiddenChars, ""); displayresult = displayresult.replace(forbiddenChars, ""); //document.write('' + displayresult + ""); return displayresult; } urlcli = Homepage();document.write('');document.write('');document.write(' ');document.write(' ');document.write(' ');document.write('
');document.write(''); document.write(''); document.write('');document.write('
Persecución de la Iglesia
'); document.write('• Alianza Evangélica Mundial denuncia persecución a cristianos en Uzbekistán y Somalia
'); document.write('• Marruecos sigue expulsando de forma ilegal a cristianos evangélicos, cooperantes internacionales
'); document.write('• Federación Mundial de Cristianos Marroquíes denuncia persecución religiosa
'); document.write('• Los cristianos sufren una ola de persecución sin precedentes en India
'); document.write('• Egipto: bloguero cristiano encarcelado 2 años a la espera de que se convierta al islam
'); document.write('
Acontecimientos Sociales
'); document.write('• Un ataúd «tipo Ikea» para montar en casa
'); document.write('• Descubren las variables genéticas que posibilitan vivir más de 100 años
'); document.write('• Estrasburgo dictamina que ningún país está obligado a legalizar el matrimonio gay
'); document.write('• Los cambios sociales y familiares recortan a la infancia su tiempo de inocencia
'); document.write('• El aumento de longevidad reduce las herencias
'); document.write('


¿Quiéres estos titulares en tu sitio Web? Pulsa aquí
');